unit Acoes;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DBCtrls, DB, StdCtrls, Mask, ZAbstractRODataset,
  ZAbstractDataset, ZAbstractTable, ZDataset, ZConnection, DataModule, Grids,
  DBGrids, DBActns, ActnList, Buttons;

type
  TFormAcoes = class(TForm)
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    ActionList1: TActionList;
    DataSetInsert1: TDataSetInsert;
    DataSetDelete1: TDataSetDelete;
    DataSetPost1: TDataSetPost;
    DataSetCancel1: TDataSetCancel;
    DataSetRefresh1: TDataSetRefresh;
    DBGrid_acoes: TDBGrid;
    Label_titulo: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormAcoes: TFormAcoes;

implementation

{$R *.dfm}

procedure TFormAcoes.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  DataModule2.ZTable_ace_acoes.Active := False;
end;

procedure TFormAcoes.FormShow(Sender: TObject);
begin
  DataModule2.ZTable_ace_acoes.Active := True;
end;

end.
